home *** CD-ROM | disk | FTP | other *** search
Text File | 2004-07-30 | 45.0 KB | 1,672 lines |
- object Form8: TForm8
- Left = 193
- Top = 109
- HelpContext = 6
- ActiveControl = PageControl1
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsDialog
- Caption = 'WinRescue Preferences'
- ClientHeight = 296
- ClientWidth = 571
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = Form8Activate
- PixelsPerInch = 96
- TextHeight = 13
- object Label36: TLabel
- Left = 8
- Top = 16
- Width = 129
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'Contents'
- end
- object PageControl1: TPageControl
- Left = 136
- Top = 8
- Width = 425
- Height = 241
- HelpContext = 6
- ActivePage = TabSheet4
- MultiLine = True
- TabOrder = 0
- OnChange = PageControl1Change
- object TabSheet3: TTabSheet
- HelpContext = 45
- Caption = 'Backup Manager'
- TabVisible = False
- object Label3: TLabel
- Left = 8
- Top = 12
- Width = 401
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = '&List of All Backup Sets'
- FocusControl = ListView1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label12: TLabel
- Left = 24
- Top = 204
- Width = 105
- Height = 20
- Hint =
- 'Total number of Backups to reach (including the Keep number) bef' +
- 'ore old Backups are replaced.'
- AutoSize = False
- Caption = 'Maximum Backups:'
- ParentShowHint = False
- ShowHint = True
- WordWrap = True
- end
- object Label14: TLabel
- Left = 208
- Top = 204
- Width = 41
- Height = 13
- Hint = 'Number of Backups to keep and not replace'
- AutoSize = False
- Caption = 'Keep:'
- ParentShowHint = False
- ShowHint = True
- end
- object Label42: TLabel
- Left = 310
- Top = 198
- Width = 97
- Height = 25
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Backups to Disks are not shown'
- WordWrap = True
- end
- object ListView1: TListView
- Left = 8
- Top = 32
- Width = 401
- Height = 145
- Columns = <
- item
- Caption = 'Backup Set'
- Width = 100
- end
- item
- Caption = 'Full Path'
- Width = 197
- end
- item
- Caption = 'Date/Time'
- Width = 100
- end>
- RowSelect = True
- TabOrder = 0
- ViewStyle = vsReport
- OnChange = ListView1Change
- OnEdited = ListViewEdited
- OnMouseDown = ListView1MouseDown
- end
- object Button9: TButton
- Left = 275
- Top = 175
- Width = 134
- Height = 18
- Hint =
- 'Deletes the Backup set from this list and all of its files on th' +
- 'e hard drive.'
- Caption = '&Delete'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = Button9Click
- end
- object Button10: TButton
- Left = 8
- Top = 175
- Width = 134
- Height = 18
- Hint = 'Renames the Backup set.'
- Caption = '&Rename'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = Button10Click
- end
- object Button18: TButton
- Left = 142
- Top = 175
- Width = 133
- Height = 18
- Hint = 'Add lost Backup sets to this list.'
- Caption = '&Add'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = Button18Click
- end
- object Edit2: TEdit
- Left = 128
- Top = 200
- Width = 33
- Height = 21
- Hint =
- 'Total number of Backups to reach (including the Keep number) bef' +
- 'ore old Backups are replaced.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- Text = '0'
- OnChange = Edit2Change
- end
- object UpDown1: TUpDown
- Left = 161
- Top = 200
- Width = 15
- Height = 21
- Hint =
- 'Total number of Backups to reach (including the Keep number) bef' +
- 'ore old Backups are replaced.'
- Associate = Edit2
- Min = 0
- Max = 10000
- ParentShowHint = False
- Position = 0
- ShowHint = True
- TabOrder = 5
- Wrap = False
- end
- object Edit3: TEdit
- Left = 248
- Top = 200
- Width = 25
- Height = 21
- Hint = 'Number of Backups to keep and not replace'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- Text = '0'
- OnChange = Edit3Change
- end
- object UpDown2: TUpDown
- Left = 273
- Top = 200
- Width = 15
- Height = 21
- Hint = 'Number of Backups to keep and not replace'
- Associate = Edit3
- Min = 0
- ParentShowHint = False
- Position = 0
- ShowHint = True
- TabOrder = 7
- Wrap = False
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'Backup Properties'
- TabVisible = False
- object Label7: TLabel
- Left = 32
- Top = 12
- Width = 89
- Height = 13
- AutoSize = False
- Caption = '&Backup Config:'
- FocusControl = ComboBox9
- end
- object PageControl2: TPageControl
- Left = 8
- Top = 40
- Width = 401
- Height = 181
- ActivePage = TabSheet9
- TabIndex = 0
- TabOrder = 0
- TabPosition = tpBottom
- object TabSheet9: TTabSheet
- Caption = 'Introduction'
- object Label13: TLabel
- Left = 24
- Top = 32
- Width = 345
- Height = 89
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'WinRescue allows four different backup configurations. Choose w' +
- 'hich configuration you want to setup from the dropdown box above' +
- '. Then change the settings on the tabs below.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- end
- object TabSheet13: TTabSheet
- Caption = 'Settings'
- object Label9: TLabel
- Left = 24
- Top = 19
- Width = 81
- Height = 17
- AutoSize = False
- Caption = '&Backup Type:'
- WordWrap = True
- end
- object Label10: TLabel
- Left = 24
- Top = 49
- Width = 34
- Height = 13
- Caption = '&Target:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label20: TLabel
- Left = 24
- Top = 80
- Width = 92
- Height = 13
- Caption = '&Compression Level:'
- FocusControl = ComboBox6
- end
- object TargetEdit: TEdit
- Left = 72
- Top = 46
- Width = 281
- Height = 21
- Hint = 'Location where the backups will be stored.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = 'TargetEdit'
- OnChange = TargetEditChange
- end
- object Button14: TButton
- Left = 353
- Top = 47
- Width = 17
- Height = 20
- Hint = 'Browse for Target'
- Caption = '...'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = Button14Click
- end
- object ComboBox6: TComboBox
- Left = 128
- Top = 76
- Width = 241
- Height = 21
- Hint = 'Choose how packed the backup zip files will be.'
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnChange = PreferenceChange
- Items.Strings = (
- 'Do Not Compress'
- 'Low/Fast Compression'
- 'Medium Compression'
- 'High/Slow Compression'
- 'Higher/Slower Compression'
- 'Highest/Slowest Compression')
- end
- object ComboBox4: TComboBox
- Left = 120
- Top = 16
- Width = 145
- Height = 21
- ItemHeight = 13
- TabOrder = 3
- Text = 'ComboBox4'
- OnChange = ComboBox4Change
- Items.Strings = (
- 'Full'
- 'Incremental'
- 'Differential'
- 'Replace'
- 'Full (Archive not reset)')
- end
- object CheckBox11: TCheckBox
- Left = 24
- Top = 112
- Width = 353
- Height = 17
- Caption =
- 'Verify Backup - checks for errors in backup after it is created.' +
- ' '
- TabOrder = 4
- OnClick = PreferenceChange
- end
- end
- object TabSheet10: TTabSheet
- Caption = 'WinFiles'
- object Label16: TLabel
- Left = 40
- Top = 136
- Width = 345
- Height = 13
- AutoSize = False
- Caption = 'User Profile items are not necessary for Crash Recovery.'
- end
- object PreSetsListBox: TCheckListBox
- Left = 8
- Top = 0
- Width = 377
- Height = 129
- Hint = 'Check which files to backup.'
- OnClickCheck = PreferenceChange
- Columns = 2
- ItemHeight = 13
- Items.Strings = (
- 'Registry'
- 'autoexec.nt (WinConfig)'
- 'config.nt (WinConfig)'
- 'cmd.exe (WinConfig)'
- 'command.com (WinConfig)'
- 'ntldr (WinConfig)'
- 'ntdetect.com (WinConfig)'
- 'boot.ini (WinConfig)'
- 'bootfont.bin (WinConfig)'
- 'ntbootdd.sys (WinConfig)'
- 'bootsect.dos (WinConfig)'
- 'Print Hood (User Profile)'
- 'Application Data (User Profile)'
- 'Desktop (User Profile)'
- 'Favorites (User Profile)'
- 'Net Hood (User Profile)'
- 'Recent (User Profile)'
- 'Start Menu (User Profile)'
- 'Send To (User Profile)'
- 'IE Cache (User Profile)'
- 'Control Panel (User Profile)')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- end
- object TabSheet11: TTabSheet
- Caption = 'Other Files'
- object Label19: TLabel
- Left = 8
- Top = 4
- Width = 105
- Height = 69
- Alignment = taCenter
- AutoSize = False
- Caption = 'Create Backup list here. Only checked backups are backed up.'
- WordWrap = True
- end
- object Button13: TButton
- Left = 8
- Top = 66
- Width = 105
- Height = 17
- Hint =
- 'Add a zip file to this list and specify the files that should be' +
- ' put in it.'
- Caption = '&New'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = Button11Click
- end
- object Button15: TButton
- Left = 8
- Top = 86
- Width = 105
- Height = 17
- Hint =
- 'Change the files that will be put in the selected backup zip fil' +
- 'e.'
- Caption = '&Edit'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = Button15Click
- end
- object Button12: TButton
- Left = 8
- Top = 126
- Width = 105
- Height = 17
- Hint = 'Deletes a zip file from this list.'
- Caption = '&Delete'
- Enabled = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = Button12Click
- end
- object FilesListBox: TCheckListBox
- Left = 120
- Top = 8
- Width = 265
- Height = 134
- Hint =
- 'Any extra files that you want to backup will be put into zip fil' +
- 'es. The zip files are listed here.'
- OnClickCheck = PreferenceChange
- ItemHeight = 13
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = MultiFilesListClick
- end
- object Button19: TButton
- Left = 8
- Top = 106
- Width = 105
- Height = 17
- Hint =
- 'Change the files that will be put in the selected backup zip fil' +
- 'e.'
- Caption = 'En&tire Drive'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = Button19Click
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Misc.'
- object Label8: TLabel
- Left = 24
- Top = 80
- Width = 257
- Height = 13
- Hint =
- 'Encrypts during Backup and decrypts during Restore using this pa' +
- 'ssword. Passwords are not saved and must be reentered everytime' +
- ' you open WinRescue.'
- AutoSize = False
- Caption = 'P&assword to use in Backup and Restore (optional):'
- FocusControl = Edit1
- ParentShowHint = False
- ShowHint = True
- end
- object Label1: TLabel
- Left = 332
- Top = 105
- Width = 25
- Height = 13
- Caption = 'bytes'
- end
- object Label44: TLabel
- Left = 24
- Top = 125
- Width = 73
- Height = 30
- AutoSize = False
- Caption = 'Which Registry to Backup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object CheckBox1: TCheckBox
- Left = 24
- Top = 0
- Width = 201
- Height = 17
- Hint = 'If checked WinRescue will close after completing a Backup'
- Caption = 'C&lose WinRescue After Backup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = PreferenceChange
- end
- object RadioButton1: TCheckBox
- Left = 24
- Top = 26
- Width = 209
- Height = 17
- Hint = 'This only works for diskettes and removable disks.'
- Caption = '&Delete all files on Disk before Backup'
- Checked = True
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 1
- OnClick = PreferenceChange
- end
- object Edit1: TEdit
- Left = 280
- Top = 76
- Width = 97
- Height = 21
- Hint =
- 'Encrypts during Backup and decrypts during Restore using this pa' +
- 'ssword. Passwords are not saved and must be reentered everytime' +
- ' you open WinRescue.'
- ParentShowHint = False
- PasswordChar = '*'
- ShowHint = True
- TabOrder = 2
- OnChange = PreferenceChange
- end
- object CheckBox2: TCheckBox
- Left = 24
- Top = 52
- Width = 225
- Height = 17
- Caption = '&Treat Removable Disk as Fixed Disk'
- TabOrder = 3
- OnClick = PreferenceChange
- end
- object CheckBox9: TCheckBox
- Left = 24
- Top = 104
- Width = 169
- Height = 17
- Caption = 'Save Large Files in Blocks of:'
- TabOrder = 4
- OnClick = CheckBox9Click
- end
- object Edit5: TEdit
- Left = 208
- Top = 102
- Width = 121
- Height = 21
- TabOrder = 5
- OnChange = PreferenceChange
- OnKeyPress = Edit5KeyPress
- end
- object CheckBox10: TCheckBox
- Left = 232
- Top = 0
- Width = 161
- Height = 17
- Caption = '&Minimize during Backup'
- TabOrder = 6
- OnClick = PreferenceChange
- end
- object CheckBox15: TCheckBox
- Left = 248
- Top = 52
- Width = 137
- Height = 17
- Caption = 'Use CD packet format'
- TabOrder = 7
- OnClick = PreferenceChange
- end
- object CheckBox16: TCheckBox
- Left = 232
- Top = 26
- Width = 161
- Height = 17
- Caption = 'Enable Open File Backup'
- TabOrder = 8
- end
- object CurrentRadio1: TRadioButton
- Left = 224
- Top = 133
- Width = 161
- Height = 17
- Caption = '&Current (doesn'#39't always work)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- end
- object PreviousRadio1: TRadioButton
- Left = 112
- Top = 133
- Width = 105
- Height = 17
- Caption = '&Previous (safest)'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- TabStop = True
- end
- end
- object TabSheet14: TTabSheet
- Caption = 'Misc.'
- ImageIndex = 5
- object CheckBox14: TCheckBox
- Left = 24
- Top = 16
- Width = 353
- Height = 17
- Caption = 'No Non-WinRescue CDs'
- TabOrder = 0
- end
- object CheckBox17: TCheckBox
- Left = 24
- Top = 40
- Width = 353
- Height = 17
- Caption = 'Always Blank CDs'
- TabOrder = 1
- end
- object CheckBox18: TCheckBox
- Left = 24
- Top = 64
- Width = 97
- Height = 17
- Caption = 'Eject CD'
- TabOrder = 2
- end
- end
- end
- object ComboBox9: TComboBox
- Left = 120
- Top = 8
- Width = 97
- Height = 21
- Hint = 'Choose which Config to change settings for.'
- ItemHeight = 13
- MaxLength = 10
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = 'ComboBox9'
- OnChange = ComboBox9TextChange
- OnClick = ComboBox9Change
- OnDropDown = ComboBox9DropDown
- Items.Strings = (
- 'Config 1'
- 'Config 2'
- 'Config 3'
- 'Config 4')
- end
- object Button17: TButton
- Left = 232
- Top = 9
- Width = 145
- Height = 19
- Caption = '&Display Config Settings'
- TabOrder = 2
- OnClick = Button17Click
- end
- end
- object TabSheet8: TTabSheet
- Caption = 'Automation'
- TabVisible = False
- object Label4: TLabel
- Left = 40
- Top = 50
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'Back up &1st Setup (Config 1).'
- FocusControl = ComboBox2
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label32: TLabel
- Left = 32
- Top = 148
- Width = 337
- Height = 41
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Task Scheduler - runs WinRescue at specified time. Otherwise Fu' +
- 'nctions are run when Windows starts. To use the Task Scheduler ' +
- 'one of the Automatic Functions must be set to Use Scheduler.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- WordWrap = True
- end
- object Label38: TLabel
- Left = 40
- Top = 98
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'Back up &3nd Setup (Config 3).'
- FocusControl = ComboBox7
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label39: TLabel
- Left = 40
- Top = 74
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'Back up &2nd Setup (Config 2).'
- FocusControl = ComboBox8
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 40
- Top = 122
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'Back up &4th Setup (Config 4).'
- FocusControl = ComboBox10
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 40
- Top = 26
- Width = 169
- Height = 13
- AutoSize = False
- Caption = 'S&tart WinRescue and Wait.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label43: TLabel
- Left = 40
- Top = 197
- Width = 273
- Height = 33
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'Seconds to pause before running automated session at startup (al' +
- 'lows other programs to finish):'
- WordWrap = True
- end
- object ComboBox2: TComboBox
- Left = 216
- Top = 46
- Width = 153
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 0
- OnChange = FreqClick
- Items.Strings = (
- 'Daily'
- 'Weekly'
- 'Bi-Weekly'
- 'Monthly'
- 'Use Scheduler'
- 'Do Not Perform')
- end
- object ComboBox7: TComboBox
- Left = 216
- Top = 94
- Width = 153
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 1
- OnChange = FreqClick
- Items.Strings = (
- 'Daily'
- 'Weekly'
- 'Bi-Weekly'
- 'Monthly'
- 'Use Scheduler'
- 'Do Not Perform')
- end
- object ComboBox8: TComboBox
- Left = 216
- Top = 70
- Width = 153
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 2
- OnChange = FreqClick
- Items.Strings = (
- 'Daily'
- 'Weekly'
- 'Bi-Weekly'
- 'Monthly'
- 'Use Scheduler'
- 'Do Not Perform')
- end
- object ComboBox10: TComboBox
- Left = 216
- Top = 118
- Width = 153
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 3
- OnChange = FreqClick
- Items.Strings = (
- 'Daily'
- 'Weekly'
- 'Bi-Weekly'
- 'Monthly'
- 'Use Scheduler'
- 'Do Not Perform')
- end
- object ComboBox1: TComboBox
- Left = 216
- Top = 22
- Width = 153
- Height = 21
- Style = csDropDownList
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 4
- OnChange = FreqClick
- Items.Strings = (
- 'Daily'
- 'Weekly'
- 'Bi-Weekly'
- 'Monthly'
- 'Use Scheduler'
- 'Do Not Perform')
- end
- object SpinEdit1: TSpinEdit
- Left = 320
- Top = 200
- Width = 49
- Height = 22
- MaxValue = 999
- MinValue = 0
- TabOrder = 5
- Value = 0
- OnChange = PreferenceChange
- end
- end
- object TabSheet7: TTabSheet
- Caption = 'Advanced'
- TabVisible = False
- object Label34: TLabel
- Left = 24
- Top = 16
- Width = 363
- Height = 33
- AutoSize = False
- Caption =
- ' These options are here in case your computer setup is not com' +
- 'patible with some of WinRescue functions.'
- WordWrap = True
- end
- object GroupBox1: TGroupBox
- Left = 56
- Top = 56
- Width = 313
- Height = 65
- Caption = 'Default Directories'
- TabOrder = 0
- object Button4: TTransparentButton
- Left = 17
- Top = 22
- Width = 64
- Height = 28
- Caption = '&Root'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = DDirClick
- end
- object Button5: TTransparentButton
- Left = 89
- Top = 22
- Width = 64
- Height = 28
- Caption = '&Startup'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = DDirClick
- end
- object Button8: TTransparentButton
- Left = 161
- Top = 22
- Width = 64
- Height = 28
- Caption = '&Temp'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = DDirClick
- end
- object TransparentButton1: TTransparentButton
- Left = 233
- Top = 22
- Width = 64
- Height = 28
- Caption = '&User'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = DDirClick
- end
- end
- object CheckBox13: TCheckBox
- Left = 104
- Top = 140
- Width = 241
- Height = 17
- Caption = 'Do Not &Prompt for Deleting Subdirectories'
- TabOrder = 1
- OnClick = PreferenceChange
- end
- object RadioGroup2: TRadioGroup
- Left = 24
- Top = 168
- Width = 169
- Height = 57
- Hint =
- ' If the computer hangs with a blank screen and a blinking curs' +
- 'or when restarting Windows after RegPack or Restore, try checkin' +
- 'g "autoexec.bat".'
- Caption = 'Windows Restart'
- ItemIndex = 0
- Items.Strings = (
- 'startwin.pif'
- 'autoexec.bat')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = PreferenceChange
- end
- object RadioGroup1: TRadioGroup
- Left = 224
- Top = 168
- Width = 169
- Height = 57
- Caption = 'Cab Extractor'
- ItemIndex = 0
- Items.Strings = (
- 'Use &Driver'
- 'Use &command.com')
- TabOrder = 3
- OnClick = PreferenceChange
- end
- end
- object TabSheet1: TTabSheet
- Caption = 'Desktop Icons'
- TabVisible = False
- object Label17: TLabel
- Left = 16
- Top = 8
- Width = 385
- Height = 39
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'This feature allows you to put an icon on the desktop and cause ' +
- 'it to automatically perform something when it is clicked. Exist' +
- 'ing WinRescue icons on the desktop can also be changed here.'
- WordWrap = True
- end
- object Label18: TLabel
- Left = 16
- Top = 75
- Width = 81
- Height = 13
- AutoSize = False
- Caption = '&Type in Title:'
- FocusControl = Edit4
- end
- object Label21: TLabel
- Left = 8
- Top = 136
- Width = 81
- Height = 49
- Alignment = taCenter
- AutoSize = False
- Caption = 'Or Select an &Existing Icon from the List'
- FocusControl = ListBox1
- WordWrap = True
- end
- object Edit4: TEdit
- Left = 104
- Top = 72
- Width = 121
- Height = 21
- TabOrder = 0
- end
- object CheckBox3: TCheckBox
- Left = 248
- Top = 64
- Width = 161
- Height = 17
- Caption = '&Start and Wait'
- TabOrder = 1
- end
- object CheckBox4: TCheckBox
- Left = 248
- Top = 84
- Width = 161
- Height = 17
- Caption = 'Back up &1st Config'
- TabOrder = 2
- end
- object CheckBox5: TCheckBox
- Left = 248
- Top = 104
- Width = 161
- Height = 17
- Caption = 'Back up &2nd Config'
- TabOrder = 3
- end
- object CheckBox6: TCheckBox
- Left = 248
- Top = 124
- Width = 161
- Height = 17
- Caption = 'Back up &3rd Config'
- TabOrder = 4
- end
- object CheckBox7: TCheckBox
- Left = 248
- Top = 144
- Width = 161
- Height = 17
- Caption = 'Back up &4th Config'
- TabOrder = 5
- end
- object CheckBox8: TCheckBox
- Left = 248
- Top = 164
- Width = 161
- Height = 17
- Caption = '&RegPack'
- TabOrder = 6
- end
- object ListBox1: TListBox
- Left = 104
- Top = 104
- Width = 121
- Height = 113
- ItemHeight = 13
- TabOrder = 7
- OnClick = ListBox1Click
- end
- object Button7: TButton
- Left = 248
- Top = 200
- Width = 137
- Height = 25
- Caption = '&Create Desktop Icon'
- TabOrder = 8
- OnClick = CreateIcon
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'TabSheet2'
- TabVisible = False
- object Label11: TLabel
- Left = 16
- Top = 8
- Width = 385
- Height = 25
- Alignment = taCenter
- AutoSize = False
- Caption = 'How would you like the Backups to be named?'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- WordWrap = True
- end
- object Label22: TLabel
- Left = 16
- Top = 56
- Width = 209
- Height = 13
- AutoSize = False
- Caption = 'Enter Format to use here ( dd/mm/yy ):'
- end
- object Label37: TLabel
- Left = 16
- Top = 80
- Width = 393
- Height = 13
- AutoSize = False
- Caption = 'Example of Today'#39's Date in the above format:'
- end
- object RadioButton3: TRadioButton
- Left = 16
- Top = 32
- Width = 161
- Height = 17
- Caption = 'Use Date ( 07/22/2000 )'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RadioButton3Click
- end
- object RadioButton2: TRadioButton
- Left = 176
- Top = 32
- Width = 233
- Height = 17
- Caption = 'Use Consecutive Numbers ( 1, 2, 3, 4, etc.)'
- TabOrder = 1
- OnClick = RadioButton3Click
- end
- object Edit6: TEdit
- Left = 224
- Top = 53
- Width = 89
- Height = 21
- TabOrder = 2
- OnChange = Edit6Change
- end
- object Panel1: TPanel
- Left = 8
- Top = 96
- Width = 401
- Height = 121
- BevelOuter = bvLowered
- Caption = 'Panel1'
- TabOrder = 3
- object Label23: TLabel
- Left = 8
- Top = 8
- Width = 185
- Height = 13
- AutoSize = False
- Caption = 'd - day without leading zero ( 1, 2 )'
- end
- object Label24: TLabel
- Left = 8
- Top = 24
- Width = 185
- Height = 13
- AutoSize = False
- Caption = 'dd - day with a leading zero ( 01, 02 )'
- end
- object Label25: TLabel
- Left = 8
- Top = 40
- Width = 185
- Height = 13
- AutoSize = False
- Caption = 'ddd - day as abbreviation (Sun,Sat)'
- end
- object Label28: TLabel
- Left = 8
- Top = 56
- Width = 185
- Height = 13
- AutoSize = False
- Caption = 'dddd - day as full name (Sunday)'
- end
- object Label26: TLabel
- Left = 192
- Top = 80
- Width = 185
- Height = 13
- AutoSize = False
- Caption = 'yy - year as a two digit number ( 00 )'
- end
- object Label27: TLabel
- Left = 192
- Top = 96
- Width = 201
- Height = 13
- AutoSize = False
- Caption = 'yyyy - year as a four digit number ( 2000 )'
- end
- object Label35: TLabel
- Left = 8
- Top = 88
- Width = 177
- Height = 13
- AutoSize = False
- Caption = '/ - date separator ( dd/mm/yy )'
- end
- object Label33: TLabel
- Left = 192
- Top = 56
- Width = 201
- Height = 13
- AutoSize = False
- Caption = 'mmmm - month as full name (January)'
- end
- object Label31: TLabel
- Left = 192
- Top = 40
- Width = 201
- Height = 13
- AutoSize = False
- Caption = 'mmm - month as abbreviation (Jan,Dec)'
- end
- object Label30: TLabel
- Left = 192
- Top = 24
- Width = 201
- Height = 13
- AutoSize = False
- Caption = 'mm - month with a leading zero ( 01, 02 )'
- end
- object Label29: TLabel
- Left = 192
- Top = 8
- Width = 201
- Height = 13
- AutoSize = False
- Caption = 'm - month without leading zero ( 1, 2 )'
- end
- end
- object CheckBox12: TCheckBox
- Left = 320
- Top = 56
- Width = 89
- Height = 17
- Caption = 'Add Config'
- TabOrder = 4
- OnClick = PreferenceChange
- end
- end
- object TabSheet6: TTabSheet
- Caption = 'TabSheet6'
- ImageIndex = 6
- TabVisible = False
- object Label5: TLabel
- Left = 8
- Top = 16
- Width = 401
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'CD Format'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label15: TLabel
- Left = 16
- Top = 48
- Width = 385
- Height = 33
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'WinRescue now backs up directly to a CD without additional solft' +
- 'ware (like, DirectCD or PacketCD).'
- WordWrap = True
- end
- object Label40: TLabel
- Left = 16
- Top = 80
- Width = 385
- Height = 57
- Alignment = taCenter
- AutoSize = False
- Caption =
- 'This section allows you to format the CD with a quick format (90' +
- ' seconds) or a full format (45 minutes). If you have WinRescue ' +
- 'set up to delete all files on the CD before backing up to it (se' +
- 'e the Misc tab of Backup Properties), a quick format is done.'
- WordWrap = True
- end
- object Label41: TLabel
- Left = 24
- Top = 152
- Width = 121
- Height = 13
- AutoSize = False
- Caption = 'Select CD Drive:'
- end
- object CDDrives: TComboBox
- Left = 144
- Top = 149
- Width = 249
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnChange = CDDrivesChange
- end
- object QuickFormat: TButton
- Left = 56
- Top = 184
- Width = 129
- Height = 25
- Caption = 'Perform Quick Format'
- TabOrder = 1
- OnClick = QuickFormatClick
- end
- object FullFormat: TButton
- Left = 224
- Top = 184
- Width = 129
- Height = 25
- Caption = 'Perform Full Format'
- TabOrder = 2
- OnClick = FullFormatClick
- end
- end
- object TabSheet12: TTabSheet
- Caption = 'TabSheet12'
- ImageIndex = 7
- TabVisible = False
- object Label46: TLabel
- Left = 136
- Top = 48
- Width = 233
- Height = 22
- AutoSize = False
- Caption = '&Maximum Number of Win98 Backups'
- FocusControl = SpinEdit2
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- WordWrap = True
- end
- object Button11: TButton
- Left = 88
- Top = 14
- Width = 225
- Height = 19
- Caption = '&Win98 Backup Directory'
- TabOrder = 0
- OnClick = DDirClick
- end
- object SpinEdit2: TSpinEdit
- Left = 88
- Top = 45
- Width = 41
- Height = 22
- EditorEnabled = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MaxValue = 1000
- MinValue = 1
- ParentFont = False
- TabOrder = 1
- Value = 1
- OnClick = PreferenceChange
- end
- object Button16: TButton
- Left = 32
- Top = 209
- Width = 345
- Height = 18
- Hint = 'Deletes the selected Win98 backup from the hard drive.'
- Caption = '&Delete'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = Button16Click
- end
- object ListView2: TListView
- Left = 32
- Top = 80
- Width = 345
- Height = 129
- Columns = <
- item
- Caption = 'Win98 Backups'
- Width = 100
- end
- item
- Caption = 'Date/Time'
- Width = 166
- end
- item
- Caption = 'Size'
- Width = 75
- end>
- ReadOnly = True
- RowSelect = True
- SortType = stText
- TabOrder = 3
- ViewStyle = vsReport
- OnChange = ListView2Change
- OnMouseDown = ListView2MouseDown
- end
- end
- end
- object Button1: TButton
- Left = 304
- Top = 261
- Width = 73
- Height = 25
- Caption = 'O K'
- Default = True
- ModalResult = 1
- TabOrder = 1
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 392
- Top = 261
- Width = 73
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 2
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 480
- Top = 261
- Width = 73
- Height = 25
- Caption = '&Apply'
- Enabled = False
- TabOrder = 3
- OnClick = Button3Click
- end
- object Button6: TButton
- Left = 8
- Top = 264
- Width = 73
- Height = 20
- Caption = '&Help'
- TabOrder = 4
- OnClick = Button6Click
- end
- object TreeView1: TTreeView
- Left = 8
- Top = 32
- Width = 129
- Height = 217
- Indent = 19
- TabOrder = 5
- OnClick = TreeViewClick
- Items.Data = {
- 07000000270000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
- 0E4261636B7570204D616E616765722A0000000000000000000000FFFFFFFFFF
- FFFFFF0000000005000000114261636B75702050726F70657274696573250000
- 000000000000000000FFFFFFFFFFFFFFFF00000000000000000C496E74726F64
- 756374696F6E210000000000000000000000FFFFFFFFFFFFFFFF000000000000
- 00000853657474696E6773210000000000000000000000FFFFFFFFFFFFFFFF00
- 000000000000000857696E46696C6573240000000000000000000000FFFFFFFF
- FFFFFFFF00000000000000000B4F746865722046696C65732600000000000000
- 00000000FFFFFFFFFFFFFFFF00000000000000000D4D697363656C6C616E656F
- 7573250000000000000000000000FFFFFFFFFFFFFFFF00000000000000000C42
- 61636B7570204E616D6573230000000000000000000000FFFFFFFFFFFFFFFF00
- 000000000000000A4175746F6D6174696F6E260000000000000000000000FFFF
- FFFFFFFFFFFF00000000000000000D4465736B746F702049636F6E7322000000
- 0000000000000000FFFFFFFFFFFFFFFF000000000000000009434420466F726D
- 6174210000000000000000000000FFFFFFFFFFFFFFFF00000000000000000841
- 6476616E636564}
- end
- object TreeView2: TTreeView
- Left = 8
- Top = 32
- Width = 129
- Height = 217
- Indent = 19
- TabOrder = 6
- OnClick = TreeViewClick
- Items.Data = {
- 08000000270000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
- 0E4261636B7570204D616E616765722A0000000000000000000000FFFFFFFFFF
- FFFFFF0000000005000000114261636B75702050726F70657274696573250000
- 000000000000000000FFFFFFFFFFFFFFFF00000000000000000C496E74726F64
- 756374696F6E210000000000000000000000FFFFFFFFFFFFFFFF000000000000
- 00000853657474696E6773210000000000000000000000FFFFFFFFFFFFFFFF00
- 000000000000000857696E46696C6573240000000000000000000000FFFFFFFF
- FFFFFFFF00000000000000000B4F746865722046696C65732600000000000000
- 00000000FFFFFFFFFFFFFFFF00000000000000000D4D697363656C6C616E656F
- 7573250000000000000000000000FFFFFFFFFFFFFFFF00000000000000000C42
- 61636B7570204E616D6573260000000000000000000000FFFFFFFFFFFFFFFF00
- 000000000000000D57696E4D45204261636B7570732300000000000000000000
- 00FFFFFFFFFFFFFFFF00000000000000000A4175746F6D6174696F6E26000000
- 0000000000000000FFFFFFFFFFFFFFFF00000000000000000D4465736B746F70
- 2049636F6E73220000000000000000000000FFFFFFFFFFFFFFFF000000000000
- 000009434420466F726D6174210000000000000000000000FFFFFFFFFFFFFFFF
- 000000000000000008416476616E636564}
- end
- object PopupMenu1: TPopupMenu
- AutoHotkeys = maManual
- AutoLineReduction = maManual
- AutoPopup = False
- Left = 104
- Top = 280
- object Dir6: TMenuItem
- Caption = 'Dir'
- HelpContext = 810
- Hint = 'The Current Root Directory'
- end
- object Browse6: TMenuItem
- Caption = '&Browse'
- HelpContext = 820
- Hint = 'Click here to assign a different root directory'
- OnClick = BrowseClick
- end
- object N7: TMenuItem
- Caption = '-'
- HelpContext = 830
- end
- object DefaultDirectory6: TMenuItem
- Caption = '&Default Directory'
- HelpContext = 840
- Hint = 'Change back to the default root directory.'
- OnClick = DefaultDirectoryClick
- end
- end
- object PopupMenu2: TPopupMenu
- Left = 160
- Top = 280
- end
- end
-